home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / fb386 / demo / kushida / 73e.bas < prev    next >
BASIC Source File  |  1995-01-18  |  6KB  |  119 lines
  1. 10 PLAY OFF
  2. 20 LOAD@ "ED02.FMB" : LOAD@ "ED05.PMB"
  3. 30 CLS 1 : COLOR 5  : PRINT "INDIAN CONTROL  [ throb mix ]"
  4. 40 PRINT "written  TAKAO KUSHIDA" 
  5. 50 S$="%CQ8T105" : PLAY S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$
  6. 60 '
  7. 70 '
  8. 80 '
  9. 90 AL$="@114V9O4L16Q1" : AR$=AL$+"V3Q8"
  10. 100 A1L$=AL$+"V7     ERARE8GERAERGR>E8< ERARE8GERAERGRDD# Q8"
  11. 110 A1R$=AR$+"V3R8   ERARE8GERAERGR>E8< ERARE8GERAERGR    Q8"
  12. 120 A1E$=AL$+"V6     RRARRRRERRRRGRRD#  RRARRRGERAREGRD#R Q8"
  13. 130 A1F$=AR$+"V2Q4R8 RRARRRRERRRRGRRD#  RRARRRGERAREGR    Q8"
  14. 140 A2L$=AL$+"@44Q3   A2&A8E8F8G8 &G2C4D4"
  15. 150 A2R$=AR$+"@44Q8E5 A2&A8E8F8G8 &G2C4D90"
  16. 160 A2E$=AL$+"@44Q3   E2&E4FRG8 &G2F4C#4 "
  17. 170 A2F$=AR$+"@44Q8C5 E2&E4FRG8 &G2F4C90 "
  18. 180 A2G$=AL$+"@44Q3   E2&E4FRG2 FRE8D8C8<A8"
  19. 190 A2H$=AR$+"@44Q8C5 E2&E4FRG2 FRE8D8C90  "
  20. 200 A3L$=AL$+"[@44Q3  >C4&C8<B4&B8&B4 G4&G8F4&F8C4 "
  21. 210 A3R$=AR$+"[@44Q8G5>C4&C8<B4&B8&B4 G4&G8F4&F8C90"
  22. 220 A3E$=AL$+"[@44Q3   F4&F8E4&E8&E4 &E4&E8 E8G8G#8A8B8"
  23. 230 A3F$=AR$+"[@44Q8C5 F4&F8E4&E8&E4 &E4&E8 E8G8G#8A90 "
  24. 240 A4L$=AL$+"[@44Q4    B>C<B>C<B8A>D8&DC8<B8>C8< E2&E8 B8>C8D8"
  25. 250 A4R$=AR$+"[@44Q8C5  B>C<B>C<B8A>D8&DC8<B8>C8< E2&E8 B8>C90 "
  26. 260 A4E$=AL$+"[@44Q4>   E8D#E4&E8&EE8>C8<BE &E2D4<B4 "
  27. 270 A4F$=AR$+"[@44Q8>C5 E8D#E4&E8&EE8>C8<BE &E2D4<B90"
  28. 280 A4G$=AL$+"[@44Q4    B>C<B>C<B8A>D8&DC8D8E8  &E2&E8 F8G8A8"
  29. 290 A4H$=AR$+"[@44Q8C5  B>C<B>C<B8A>D8&DC8D8E8  &E2&E8 F8G90 "
  30. 300 A4I$=AL$+"[@44Q4   >F8&FE8&EC<A&A4>ARAR F8&FE8&EC<E&F8G8G#32A32&AB8"
  31. 310 A4J$=AR$+"[@44Q8C5 >F8&FE8&EC<A&A4>ARAR F8&FE8&EC<E&F8G8G#90"
  32. 320 A4M$=AL$+"[@44Q4    B>C<B>C<B8A>D8&DC8<B8>C8< E1       "
  33. 330 A4N$=AR$+"[@44Q8C5  B>C<B>C<B8A>D8&DC8<B8>C8< E2&E4&E90"
  34. 340 '
  35. 350 C2L$="@32 V7O3L16   R2R4 B8&B>D#32E32&E4 &E4 >(A#32B32R)O2D4 "
  36. 360 C2R$="@39 V2O3L16R8 R2R4 B8&B>D#32E32&E4 &E4 >(A#32B32R)O2D8 "
  37. 370 C2E$="@32 V7O3L16   R2R4 B8&B>D#32E32&E4 &E8 >A#32B32R O2D8&DF8&FA#8"
  38. 380 C2F$="@39 V2O3L16R8 R2R4 B8&B>D#32E32&E4 &E8 >A#32B32R O2D8&DF8&F   "
  39. 390 C3L$="@106V9O5L16Q8 <  ERBRABREBEAB8A#>BG E<RBRABREBEAB8A#B8 "
  40. 400 C3R$="@106V4O5L16Q8 <CRERBRABREBEAB8A#>CG E<RBRABREBEAB8A#   "
  41. 410 C3E$="@106V9O5L16Q8 <  ERBRRRRA >D<RBRRGAB >E<RBRABRRRBAB8DD#8"
  42. 420 C3F$="@106V4O5L16Q8 <CRERBRRRRA >D<RBRRGAB >E<RBRABRRRBAB8D   "
  43. 430 C4L$="@90V7O3L16Q1%L1  (GD>G<EG>AE<DEDGA>A<EGD) Q8"
  44. 440 C4R$="@90V3O3L16Q1%R1R5GD>G<EG>AE<DEDGA>A<EGDGD>G<EG>AE<DEDGA>A90Q8"
  45. 450 C4E$="@89V4O3L16Q8%L1 E2&E4F4 G2B4>C4"
  46. 460 C4F$="@89V3O3L16Q8%R1 C1      D1"
  47. 470 C4G$="@89V4O3L16Q8%L1 B2&B4A4G2F2  "
  48. 480 C4H$="@89V3O3L16Q8%R1 G2&G4F4E2D2  "
  49. 490 C5$= "@31V4O2L16Q1   AR>ECDRCERDGRERD<G AR>ECDRCERDGR<ERGR"
  50. 500 C5E$="@31V4O2L16Q1   DR AFGRFARG>CR<ERER DR AFGRFARG>CRDRER"
  51. 510 C5F$="@31V4O2L16Q1   CRGEFREGRFARBR>CR< FRGABR>CDREFRERDR"
  52. 520 C5G$="@31V4O2L16Q1  >CR<BARGRFREFRCRDR  GRARBR>CDREFRERDR"
  53. 530 C5H$="@31V4O2L16Q1   AR>ECDRCERDGRERD<G AR>ECDRCE"
  54. 540 C6L$="@118V13O0L16C4>C<RRCC>C<C8>C8>C<G C4>C<RRCC>C<CRV8O4C<CV15O0CR"
  55. 550 C6R$="@118V6 O0L16R8 C4>C<RRCC>C<C8>C8>C<G C4>C<RRCC>C<CRV3O4C<C"
  56. 560 B1$= "@1  V9 O0L16Q8 RRGRRGRR GRRRRGC#D  D#RD#R RD#RR D#RRR D#RER"
  57. 570 B1E$="@29 V11O1L16Q8 C2&C4G8A#8  C4 @32[[>C&C8<A# Q6RA#A#RGA#A#R Q8"
  58. 580 B2$ ="@29 V9 O1L16Q8 E8GG#32A32&A>C&C2<G8  >C<A#RCRRRR G>>D<<GF&F8D8"
  59. 590 B2E$="@1  V9 O0L16Q8  (@1ARRARRRR RRAR RR@92Q4>C<Q8 @38A  )"
  60. 600 B2F$="@1  V7 O0L16Q8 >(@1DRRDRRRR RRDR RR@92Q4 C Q8 @38<A>)"
  61. 610 B3$ ="@100V7 O1L16Q8  E1F1 "
  62. 620 B3E$="@100V7 O1L16Q8  G2&G4F4G2G#4B4"
  63. 630 '
  64. 640 P1$= "@9V8 O0L16  CRRRRRRGCRRRRRCR  CRRRRRRRRRRRCRCR"
  65. 650 P2$= "@9V6 O0L16 (GRCR @8O3GR @9O0RC G @8O3AR@9O0C@8O3GR@9O0RC)  "
  66. 660 S2$= "@9V6 O0L16  GRCR @8O3GR @9O0RC G @8O3AR@9O0C@8O3GR@9O0RC G1"
  67. 670 SS2$="@9V6 O0L16  GRCR@8O3G4RAR@9O0C@8O3GR@9O0RC GRCR@8O3G4R@9O0CRRC"
  68. 680 P3$= "@9V4 O7L24 ((FRRFRF))4"
  69. 690 S3$= "@9V4 O7L24  (FRRFRF) F"
  70. 700 P4$= "@7V5 O7L16 (<C>CCD <<C>>C>B<<C>)4   "
  71. 710 S4$= "@7V5 O7L16 (<C>CCD <<C>>C>B<<C>)<C> "
  72. 720 P5$= "@7V6 O1L16  CRRR>C<RRCR>C<CRRR>C<R CRCR>C<RRCR>C<CRCR>C<R"
  73. 730 BP1$="@2V2 O5L16  R1 (C>C<C>C<]) (]]C>C<)3 @1V4O0 GG"
  74. 740 BP2$="@4V2 O6L16  R1 (CCC@7<C>@4]) CCO3CO6C O3CRC @9O0G32G32"
  75. 750 '
  76. 760 'PLAY C2L$,C2R$,C6L$,C6R$ :  END
  77. 770 'PLAY C5$,,,,,,,,,BP1$ :  END
  78. 780 'PLAY ,,,,,,,,,SS2$,BP2$ :  END
  79. 790 'GOTO 1000
  80. 800 '
  81. 810 PLAY C6L$,C6R$
  82. 820 PLAY C6L$,C6R$
  83. 830 PLAY C6L$,C6R$,A1E$,A1F$
  84. 840 PLAY C6L$,C6R$,A1E$,A1F$,    ,,BP1$
  85. 850 PLAY A1E$,A1F$,    ,C6L$,C6R$,,S2$
  86. 860 PLAY A1E$,A1F$,    ,C6L$,C6R$,,SS2$,S3$,BP2$
  87. 870 PLAY A1E$,A1F$,B1$ ,C6L$,C6R$,,P2$ ,P3$,P4$
  88. 880 PLAY A1E$,A1F$,B1$ ,C6L$,C6R$,,S2$ ,S3$,S4$
  89. 890 PLAY A1L$,A1R$,B1$ ,C2L$,C2R$,C6L$,P1$,P2$,P3$,P4$
  90. 900 PLAY A1L$,A1R$,B1$ ,C2E$,C2F$,C6L$,P1$,P2$,P3$,P4$
  91. 910 PLAY A1L$,A1R$,B1$ ,C2L$,C2R$,C6L$,P1$,P2$,P3$,P4$
  92. 920 PLAY A1L$,A1R$,B1$ ,    ,    ,C6L$,P1$,S2$,P3$,P4$
  93. 930 PLAY B2$ ,    ,    ,,,,P2$,   ,P4$
  94. 940 PLAY B1E$,    ,    ,,,,S2$,   ,P4$
  95. 950 PLAY B2E$,C4L$,C4R$,C3L$,C3R$,,P1$,P2$,P3$,P4$
  96. 960 PLAY B2E$,C4L$,C4R$,C3E$,C3F$,,P1$,P2$,P3$,P4$
  97. 970 PLAY B2E$,C4L$,C4R$,C3L$,C3R$,,P1$,P2$,P3$,P4$
  98. 980 PLAY B2E$,C4L$,C4R$,C3E$,C3F$,,P1$,P2$,P3$,P4$
  99. 990 PLAY B2E$,C4L$,C4R$,,,,P5$,P3$,P4$
  100. 1000 PLAY B2E$,C4L$,C4R$,,,,P5$,P3$,P4$,BP1$
  101. 1010 PLAY B2E$,C4L$,C4R$,C5$ ,A2L$,A2R$,P5$,P2$,P3$,P4$
  102. 1020 PLAY B2F$,C4L$,C4R$,C5E$,A2E$,A2F$,P5$,P2$,P3$,P4$
  103. 1030 PLAY B2E$,C4L$,C4R$,C5$ ,A2L$,A2R$,P5$,P2$,P3$,P4$
  104. 1040 PLAY B2F$,C4L$,C4R$,C5E$,A2G$,A2H$,P5$,P2$,P3$,P4$
  105. 1050 PLAY B3$ ,C4E$,C4F$,C5F$,A3L$,A3R$,   ,   ,P3$,P4$
  106. 1060 PLAY B3E$,C4G$,C4H$,C5G$,A3E$,A3F$,   ,   ,P3$,P4$,BP1$
  107. 1070 PLAY B2E$,C4L$,C4R$,C5$ ,A2L$,A2R$,P5$,P2$,P3$,P4$
  108. 1080 PLAY B2F$,C4L$,C4R$,C5E$,A2E$,A2F$,P5$,P2$,P3$,P4$
  109. 1090 PLAY B2E$,C4L$,C4R$,C5$ ,A2L$,A2R$,P5$,P2$,P3$,P4$
  110. 1100 PLAY B2F$,C4L$,C4R$,C5E$,A2G$,A2H$,P5$,S2$,P3$,P4$
  111. 1110 PLAY B2E$,C4L$,C4R$,C5$ ,A4L$,A4R$,,   ,P3$,P4$
  112. 1120 PLAY B2F$,C4L$,C4R$,C5E$,A4E$,A4F$,,   ,P3$,P4$
  113. 1130 PLAY B2E$,C4L$,C4R$,C5$ ,A4G$,A4H$,,   ,   ,P4$
  114. 1140 PLAY B2F$,C4L$,C4R$,C5E$,A4I$,A4J$
  115. 1150 PLAY     ,C6L$,C6R$,C5H$,A4M$,A4N$
  116. 1160 PLAY     ,C6L$,C6R$
  117. 1170 PLAY     ,C6L$,C6R$
  118. 1180 PLAY     ,    ,C6R$
  119.